inherited dmEapMenuTree: TdmEapMenuTree
  inherited qryMaster: TFDQuery
    AfterInsert = qryMasterAfterInsert
    AfterEdit = qryMasterAfterEdit
    CachedUpdates = True
    SQL.Strings = (
      'SELECT * '#10'FROM tblFunction ')
    object qryMasterfldFunctionCode: TStringField
      FieldName = 'fldFunctionCode'
      Origin = 'fldFunctionCode'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 100
    end
    object qryMasterfldMainMenuCode: TStringField
      FieldName = 'fldMainMenuCode'
      Origin = 'fldMainMenuCode'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 50
    end
    object qryMasterfldParentCode: TStringField
      FieldName = 'fldParentCode'
      Origin = 'fldParentCode'
      Size = 50
    end
    object qryMasterfldKeyFieldName: TStringField
      FieldName = 'fldKeyFieldName'
      Origin = 'fldKeyFieldName'
      Required = True
      Size = 50
    end
    object qryMasterfldFunctionName1: TWideStringField
      FieldName = 'fldFunctionName1'
      Origin = 'fldFunctionName1'
      Required = True
      Size = 100
    end
    object qryMasterfldFunctionName2: TWideStringField
      FieldName = 'fldFunctionName2'
      Origin = 'fldFunctionName2'
      Required = True
      Size = 100
    end
    object qryMasterfldFunctionName3: TWideStringField
      FieldName = 'fldFunctionName3'
      Origin = 'fldFunctionName3'
      Required = True
      Size = 100
    end
    object qryMasterfldUserName1: TWideStringField
      FieldName = 'fldUserName1'
      Origin = 'fldUserName1'
      Required = True
      Size = 100
    end
    object qryMasterfldUserName2: TWideStringField
      FieldName = 'fldUserName2'
      Origin = 'fldUserName2'
      Required = True
      Size = 100
    end
    object qryMasterfldUserName3: TWideStringField
      FieldName = 'fldUserName3'
      Origin = 'fldUserName3'
      Required = True
      Size = 100
    end
    object qryMasterfldNeedApproval: TBooleanField
      FieldName = 'fldNeedApproval'
      Origin = 'fldNeedApproval'
      Required = True
    end
    object qryMasterfldNeedPopedomControl: TBooleanField
      FieldName = 'fldNeedPopedomControl'
      Origin = 'fldNeedPopedomControl'
      Required = True
    end
    object qryMasterfldIsAFunction: TBooleanField
      FieldName = 'fldIsAFunction'
      Origin = 'fldIsAFunction'
      Required = True
    end
    object qryMasterfldSendMessage: TBooleanField
      FieldName = 'fldSendMessage'
      Origin = 'fldSendMessage'
      Required = True
    end
    object qryMasterfldType: TStringField
      FieldName = 'fldType'
      Origin = 'fldType'
      Required = True
      Size = 1
    end
    object qryMasterfldModuleType: TStringField
      FieldName = 'fldModuleType'
      Origin = 'fldModuleType'
      Required = True
      Size = 2
    end
    object qryMasterfldApprovalTypeCode: TStringField
      FieldName = 'fldApprovalTypeCode'
      Origin = 'fldApprovalTypeCode'
      Required = True
      Size = 30
    end
    object qryMasterfldEffectiveFromDate: TSQLTimeStampField
      FieldName = 'fldEffectiveFromDate'
      Origin = 'fldEffectiveFromDate'
      Required = True
    end
    object qryMasterfldEffectiveToDate: TSQLTimeStampField
      FieldName = 'fldEffectiveToDate'
      Origin = 'fldEffectiveToDate'
      Required = True
    end
    object qryMasterfldHaveEffectiveToDate: TBooleanField
      FieldName = 'fldHaveEffectiveToDate'
      Origin = 'fldHaveEffectiveToDate'
      Required = True
    end
    object qryMasterfldUserReferControl: TBooleanField
      FieldName = 'fldUserReferControl'
      Origin = 'fldUserReferControl'
      Required = True
    end
    object qryMasterfldReportFileName: TStringField
      FieldName = 'fldReportFileName'
      Origin = 'fldReportFileName'
      Required = True
      Size = 100
    end
    object qryMasterfldCreator: TStringField
      FieldName = 'fldCreator'
      Origin = 'fldCreator'
      Required = True
      Size = 30
    end
    object qryMasterfldCreateTime: TSQLTimeStampField
      FieldName = 'fldCreateTime'
      Origin = 'fldCreateTime'
      Required = True
    end
    object qryMasterfldLastModifier: TStringField
      FieldName = 'fldLastModifier'
      Origin = 'fldLastModifier'
      Required = True
      Size = 30
    end
    object qryMasterfldLastModTime: TSQLTimeStampField
      FieldName = 'fldLastModTime'
      Origin = 'fldLastModTime'
      Required = True
    end
    object qryMasterfldNoOfMod: TIntegerField
      FieldName = 'fldNoOfMod'
      Origin = 'fldNoOfMod'
      Required = True
    end
  end
  object qryDetails: TFDQuery
    CachedUpdates = True
    IndexFieldNames = 'fldFunctionCode'
    MasterSource = srcFunction
    MasterFields = 'fldFunctionCode'
    DetailFields = 'fldFunctionCode'
    Connection = UniMainModule.FDConnection
    SQL.Strings = (
      'select * from tblFunctionList'
      'where'
      '  fldFunctionCode = :fldFunctionCode')
    Left = 56
    Top = 128
    ParamData = <
      item
        Name = 'FLDFUNCTIONCODE'
        ParamType = ptInput
      end>
  end
  object srcFunction: TDataSource
    DataSet = qryMaster
    Left = 168
    Top = 32
  end
end
